home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / explor1a / explorer.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-26  |  32.7 KB  |  836 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmExplorer 
  4.    Caption         =   "Explorer"
  5.    ClientHeight    =   6540
  6.    ClientLeft      =   165
  7.    ClientTop       =   825
  8.    ClientWidth     =   9060
  9.    Icon            =   "Explorer.frx":0000
  10.    LinkTopic       =   "Form7"
  11.    ScaleHeight     =   6540
  12.    ScaleWidth      =   9060
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin MSComctlLib.Toolbar Toolbar1 
  15.       Align           =   1  'Align Top
  16.       Height          =   450
  17.       Left            =   0
  18.       TabIndex        =   5
  19.       Top             =   0
  20.       Width           =   9060
  21.       _ExtentX        =   15981
  22.       _ExtentY        =   794
  23.       ButtonWidth     =   661
  24.       ButtonHeight    =   635
  25.       Appearance      =   1
  26.       ImageList       =   "ImageList2"
  27.       DisabledImageList=   "ImageList2"
  28.       HotImageList    =   "ImageList2"
  29.       _Version        =   393216
  30.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  31.          NumButtons      =   41
  32.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  33.             Style           =   3
  34.          EndProperty
  35.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  36.             Style           =   3
  37.          EndProperty
  38.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  39.             Style           =   3
  40.          EndProperty
  41.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  42.             Style           =   3
  43.          EndProperty
  44.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  45.             Style           =   3
  46.          EndProperty
  47.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  48.             Style           =   3
  49.          EndProperty
  50.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  51.             Style           =   3
  52.          EndProperty
  53.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  54.             Style           =   3
  55.          EndProperty
  56.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  57.             Style           =   3
  58.          EndProperty
  59.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  60.             Style           =   3
  61.          EndProperty
  62.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  63.             Style           =   3
  64.          EndProperty
  65.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  66.             Style           =   3
  67.          EndProperty
  68.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  69.             Style           =   3
  70.          EndProperty
  71.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  72.             Style           =   3
  73.          EndProperty
  74.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  75.             Style           =   3
  76.             Object.Width           =   1e-4
  77.          EndProperty
  78.          BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  79.             Style           =   3
  80.          EndProperty
  81.          BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  82.             Style           =   3
  83.          EndProperty
  84.          BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  85.             Style           =   3
  86.          EndProperty
  87.          BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  88.             Style           =   3
  89.          EndProperty
  90.          BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  91.             Style           =   3
  92.          EndProperty
  93.          BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  94.             Style           =   3
  95.          EndProperty
  96.          BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  97.             Style           =   3
  98.          EndProperty
  99.          BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  100.             Style           =   3
  101.          EndProperty
  102.          BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  103.             Style           =   3
  104.          EndProperty
  105.          BeginProperty Button25 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  106.             Style           =   3
  107.          EndProperty
  108.          BeginProperty Button26 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  109.             Key             =   "BackFolder"
  110.             ImageIndex      =   6
  111.          EndProperty
  112.          BeginProperty Button27 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  113.             Style           =   3
  114.          EndProperty
  115.          BeginProperty Button28 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  116.             ImageIndex      =   3
  117.          EndProperty
  118.          BeginProperty Button29 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  119.             ImageIndex      =   5
  120.          EndProperty
  121.          BeginProperty Button30 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  122.             Style           =   3
  123.          EndProperty
  124.          BeginProperty Button31 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  125.             ImageIndex      =   2
  126.          EndProperty
  127.          BeginProperty Button32 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  128.             ImageIndex      =   1
  129.          EndProperty
  130.          BeginProperty Button33 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  131.             ImageIndex      =   7
  132.          EndProperty
  133.          BeginProperty Button34 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  134.             Style           =   3
  135.          EndProperty
  136.          BeginProperty Button35 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  137.             ImageIndex      =   4
  138.          EndProperty
  139.          BeginProperty Button36 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  140.             ImageIndex      =   8
  141.          EndProperty
  142.          BeginProperty Button37 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  143.             Style           =   3
  144.          EndProperty
  145.          BeginProperty Button38 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  146.             Key             =   "ViewB"
  147.             ImageIndex      =   9
  148.          EndProperty
  149.          BeginProperty Button39 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  150.             Key             =   "ViewS"
  151.             ImageIndex      =   11
  152.          EndProperty
  153.          BeginProperty Button40 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  154.             Key             =   "ViewL"
  155.             ImageIndex      =   12
  156.          EndProperty
  157.          BeginProperty Button41 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  158.             Key             =   "ViewD"
  159.             ImageIndex      =   10
  160.          EndProperty
  161.       EndProperty
  162.       Begin VB.ComboBox Combo1 
  163.          Height          =   315
  164.          Left            =   2520
  165.          TabIndex        =   7
  166.          Text            =   "Combo1"
  167.          Top             =   4800
  168.          Width           =   1935
  169.       End
  170.       Begin VB.DriveListBox Drive1 
  171.          BeginProperty Font 
  172.             Name            =   "MS Sans Serif"
  173.             Size            =   9.75
  174.             Charset         =   0
  175.             Weight          =   400
  176.             Underline       =   0   'False
  177.             Italic          =   0   'False
  178.             Strikethrough   =   0   'False
  179.          EndProperty
  180.          Height          =   360
  181.          Left            =   0
  182.          TabIndex        =   6
  183.          Top             =   0
  184.          Width           =   2895
  185.       End
  186.    End
  187.    Begin MSComctlLib.ImageList ImageList1 
  188.       Left            =   3720
  189.       Top             =   6360
  190.       _ExtentX        =   1005
  191.       _ExtentY        =   1005
  192.       BackColor       =   -2147483643
  193.       ImageWidth      =   16
  194.       ImageHeight     =   16
  195.       MaskColor       =   12632256
  196.       _Version        =   393216
  197.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  198.          NumListImages   =   22
  199.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  200.             Picture         =   "Explorer.frx":058A
  201.             Key             =   "DOS"
  202.          EndProperty
  203.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  204.             Picture         =   "Explorer.frx":08DE
  205.             Key             =   "Drive"
  206.          EndProperty
  207.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  208.             Picture         =   "Explorer.frx":0C32
  209.             Key             =   "avi"
  210.          EndProperty
  211.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  212.             Picture         =   "Explorer.frx":0F86
  213.             Key             =   "bat"
  214.          EndProperty
  215.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  216.             Picture         =   "Explorer.frx":1412
  217.             Key             =   "bmp"
  218.          EndProperty
  219.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  220.             Picture         =   "Explorer.frx":1766
  221.             Key             =   "cpp"
  222.          EndProperty
  223.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  224.             Picture         =   "Explorer.frx":1ABA
  225.             Key             =   "ctl"
  226.          EndProperty
  227.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  228.             Picture         =   "Explorer.frx":1E0E
  229.             Key             =   "dat"
  230.          EndProperty
  231.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  232.             Picture         =   "Explorer.frx":2162
  233.             Key             =   "dll"
  234.          EndProperty
  235.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  236.             Picture         =   "Explorer.frx":24B6
  237.             Key             =   "exe"
  238.          EndProperty
  239.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  240.             Picture         =   "Explorer.frx":280A
  241.             Key             =   "frm"
  242.          EndProperty
  243.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  244.             Picture         =   "Explorer.frx":2B5E
  245.             Key             =   "gif"
  246.          EndProperty
  247.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  248.             Picture         =   "Explorer.frx":2EB2
  249.             Key             =   "h"
  250.          EndProperty
  251.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  252.             Picture         =   "Explorer.frx":3206
  253.             Key             =   "hlp"
  254.          EndProperty
  255.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  256.             Picture         =   "Explorer.frx":355A
  257.             Key             =   "inf"
  258.          EndProperty
  259.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  260.             Picture         =   "Explorer.frx":38AE
  261.             Key             =   "Others"
  262.          EndProperty
  263.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  264.             Picture         =   "Explorer.frx":3C02
  265.             Key             =   "sys"
  266.          EndProperty
  267.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  268.             Picture         =   "Explorer.frx":3F56
  269.             Key             =   "txt"
  270.          EndProperty
  271.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  272.             Picture         =   "Explorer.frx":42AA
  273.             Key             =   "vbg"
  274.          EndProperty
  275.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  276.             Picture         =   "Explorer.frx":45FE
  277.             Key             =   "zip"
  278.          EndProperty
  279.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  280.             Picture         =   "Explorer.frx":4952
  281.             Key             =   "vbp"
  282.          EndProperty
  283.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  284.             Picture         =   "Explorer.frx":4CA6
  285.             Key             =   "bas"
  286.          EndProperty
  287.       EndProperty
  288.    End
  289.    Begin MSComctlLib.ImageList ImageList2 
  290.       Left            =   2760
  291.       Top             =   6360
  292.       _ExtentX        =   1005
  293.       _ExtentY        =   1005
  294.       BackColor       =   -2147483643
  295.       ImageWidth      =   18
  296.       ImageHeight     =   18
  297.       MaskColor       =   12632256
  298.       _Version        =   393216
  299.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  300.          NumListImages   =   12
  301.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  302.             Picture         =   "Explorer.frx":4FFA
  303.             Key             =   ""
  304.          EndProperty
  305.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  306.             Picture         =   "Explorer.frx":534E
  307.             Key             =   ""
  308.          EndProperty
  309.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  310.             Picture         =   "Explorer.frx":56A2
  311.             Key             =   ""
  312.          EndProperty
  313.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  314.             Picture         =   "Explorer.frx":59F6
  315.             Key             =   ""
  316.          EndProperty
  317.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  318.             Picture         =   "Explorer.frx":5D4A
  319.             Key             =   ""
  320.          EndProperty
  321.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  322.             Picture         =   "Explorer.frx":609E
  323.             Key             =   ""
  324.          EndProperty
  325.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  326.             Picture         =   "Explorer.frx":63F2
  327.             Key             =   ""
  328.          EndProperty
  329.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  330.             Picture         =   "Explorer.frx":6746
  331.             Key             =   ""
  332.          EndProperty
  333.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  334.             Picture         =   "Explorer.frx":6A9A
  335.             Key             =   ""
  336.          EndProperty
  337.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  338.             Picture         =   "Explorer.frx":6DEE
  339.             Key             =   ""
  340.          EndProperty
  341.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  342.             Picture         =   "Explorer.frx":7142
  343.             Key             =   ""
  344.          EndProperty
  345.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  346.             Picture         =   "Explorer.frx":7496
  347.             Key             =   ""
  348.          EndProperty
  349.       EndProperty
  350.    End
  351.    Begin MSComctlLib.StatusBar StatusBar3 
  352.       Height          =   375
  353.       Left            =   3405
  354.       TabIndex        =   4
  355.       Top             =   435
  356.       Width           =   4665
  357.       _ExtentX        =   8229
  358.       _ExtentY        =   661
  359.       Style           =   1
  360.       _Version        =   393216
  361.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  362.          NumPanels       =   1
  363.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  364.          EndProperty
  365.       EndProperty
  366.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  367.          Name            =   "MS Sans Serif"
  368.          Size            =   9.75
  369.          Charset         =   0
  370.          Weight          =   400
  371.          Underline       =   0   'False
  372.          Italic          =   0   'False
  373.          Strikethrough   =   0   'False
  374.       EndProperty
  375.    End
  376.    Begin MSComctlLib.StatusBar StatusBar2 
  377.       Align           =   2  'Align Bottom
  378.       Height          =   375
  379.       Left            =   0
  380.       TabIndex        =   3
  381.       Top             =   6165
  382.       Width           =   9060
  383.       _ExtentX        =   15981
  384.       _ExtentY        =   661
  385.       _Version        =   393216
  386.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  387.          NumPanels       =   2
  388.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  389.             Object.Width           =   4304
  390.             MinWidth        =   4304
  391.          EndProperty
  392.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  393.             AutoSize        =   1
  394.             Object.Width           =   11165
  395.          EndProperty
  396.       EndProperty
  397.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  398.          Name            =   "MS Sans Serif"
  399.          Size            =   9.75
  400.          Charset         =   0
  401.          Weight          =   400
  402.          Underline       =   0   'False
  403.          Italic          =   0   'False
  404.          Strikethrough   =   0   'False
  405.       EndProperty
  406.    End
  407.    Begin MSComctlLib.StatusBar StatusBar1 
  408.       Height          =   375
  409.       Left            =   0
  410.       TabIndex        =   2
  411.       Top             =   435
  412.       Width           =   3360
  413.       _ExtentX        =   5927
  414.       _ExtentY        =   661
  415.       Style           =   1
  416.       SimpleText      =   "All Folders"
  417.       _Version        =   393216
  418.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  419.          NumPanels       =   1
  420.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  421.          EndProperty
  422.       EndProperty
  423.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  424.          Name            =   "MS Sans Serif"
  425.          Size            =   9.75
  426.          Charset         =   0
  427.          Weight          =   400
  428.          Underline       =   0   'False
  429.          Italic          =   0   'False
  430.          Strikethrough   =   0   'False
  431.       EndProperty
  432.    End
  433.    Begin MSComctlLib.ListView ListView1 
  434.       Height          =   4455
  435.       Left            =   3400
  436.       TabIndex        =   1
  437.       Top             =   840
  438.       Width           =   4695
  439.       _ExtentX        =   8281
  440.       _ExtentY        =   7858
  441.       View            =   3
  442.       Sorted          =   -1  'True
  443.       LabelWrap       =   -1  'True
  444.       HideSelection   =   -1  'True
  445.       OLEDragMode     =   1
  446.       OLEDropMode     =   1
  447.       _Version        =   393217
  448.       Icons           =   "ImageList1"
  449.       SmallIcons      =   "ImageList1"
  450.       ColHdrIcons     =   "ImageList1"
  451.       ForeColor       =   -2147483640
  452.       BackColor       =   -2147483643
  453.       BorderStyle     =   1
  454.       Appearance      =   1
  455.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  456.          Name            =   "MS Sans Serif"
  457.          Size            =   12
  458.          Charset         =   0
  459.          Weight          =   400
  460.          Underline       =   0   'False
  461.          Italic          =   0   'False
  462.          Strikethrough   =   0   'False
  463.       EndProperty
  464.       OLEDragMode     =   1
  465.       OLEDropMode     =   1
  466.       NumItems        =   4
  467.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  468.          Text            =   "Name"
  469.          Object.Width           =   2540
  470.       EndProperty
  471.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  472.          Alignment       =   1
  473.          SubItemIndex    =   1
  474.          Text            =   "Size"
  475.          Object.Width           =   2540
  476.       EndProperty
  477.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  478.          SubItemIndex    =   2
  479.          Text            =   "Type"
  480.          Object.Width           =   2540
  481.       EndProperty
  482.       BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  483.          SubItemIndex    =   3
  484.          Text            =   "Modified"
  485.          Object.Width           =   2540
  486.       EndProperty
  487.    End
  488.    Begin MSComctlLib.TreeView TreeView1 
  489.       Height          =   4455
  490.       Left            =   0
  491.       TabIndex        =   0
  492.       Top             =   840
  493.       Width           =   3375
  494.       _ExtentX        =   5953
  495.       _ExtentY        =   7858
  496.       _Version        =   393217
  497.       Indentation     =   471
  498.       LineStyle       =   1
  499.       Sorted          =   -1  'True
  500.       Style           =   7
  501.       ImageList       =   "ImageList1"
  502.       Appearance      =   1
  503.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  504.          Name            =   "MS Sans Serif"
  505.          Size            =   12
  506.          Charset         =   0
  507.          Weight          =   400
  508.          Underline       =   0   'False
  509.          Italic          =   0   'False
  510.          Strikethrough   =   0   'False
  511.       EndProperty
  512.       OLEDragMode     =   1
  513.       OLEDropMode     =   1
  514.    End
  515.    Begin VB.Menu mnuFile 
  516.       Caption         =   "&File"
  517.    End
  518.    Begin VB.Menu mnuEdit 
  519.       Caption         =   "&Edit"
  520.    End
  521.    Begin VB.Menu mnuView 
  522.       Caption         =   "&View"
  523.    End
  524.    Begin VB.Menu mnuTool 
  525.       Caption         =   "&Tools"
  526.       Begin VB.Menu mnuFind 
  527.          Caption         =   "Find"
  528.       End
  529.       Begin VB.Menu mnuline1 
  530.          Caption         =   "-"
  531.       End
  532.       Begin VB.Menu mnuconnect 
  533.          Caption         =   "Connect To Network Drive"
  534.       End
  535.       Begin VB.Menu mnudisconnect 
  536.          Caption         =   "Disconnect  Network Drive"
  537.       End
  538.       Begin VB.Menu mnuline2 
  539.          Caption         =   "-"
  540.       End
  541.       Begin VB.Menu mnugo 
  542.          Caption         =   "Go ->"
  543.       End
  544.    End
  545.    Begin VB.Menu mnuhlp 
  546.       Caption         =   "?"
  547.    End
  548. Attribute VB_Name = "frmExplorer"
  549. Attribute VB_GlobalNameSpace = False
  550. Attribute VB_Creatable = False
  551. Attribute VB_PredeclaredId = True
  552. Attribute VB_Exposed = False
  553. '***************************************
  554. 'Explorer Program Made By Carl Harvey.
  555. 'Date  : 199-09-24
  556. 'Planet Nick : Carlos
  557. 'Thanks for keeping these line here
  558. '***************************************
  559. Dim SizeOn As Boolean
  560. Dim OldX, InitialFormWith, InitialFormHeigth
  561. Dim MoveOn As Boolean
  562. Public Sub GetTreeStructure(ByVal path As String, ByVal ftype As String, ByVal NodeTo As String)
  563.        Dim hFile As Long, ts As String, WFD As WIN32_FIND_DATA
  564.        Dim result As Long, sAttempt As String, szPath As String
  565.        Dim strtemp
  566.        Dim nod1 As Node
  567.        szPath = path & "*.*" & Chr$(0)
  568.        hFile = FindFirstFile(szPath, WFD)
  569.        Do
  570.          If WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY Then
  571.           'Hey look, we've got a directory!
  572.              ts = StripNull(WFD.cFileName)
  573.              If Not (ts = "." Or ts = "..") Then
  574.                  'Don't look for hidden or system directories
  575.                  If Not (WFD.dwFileAttributes And (FILE_ATTRIBUTE_HIDDEN Or FILE_ATTRIBUTE_SYSTEM)) Then
  576.                     rep = InStr(1, WFD.cFileName, Chr(0), vbBinaryCompare)
  577.                     strtemp = Mid(WFD.cFileName, 1, rep - 1)
  578.                      Dim str2 As String
  579.                     str2 = "R" & strtemp & TreeView1.Nodes.Count
  580.                     With TreeView1
  581.                       Set nod1 = .Nodes.Add(NodeTo, tvwChild, str2, strtemp)
  582.                     End With
  583.                     nod1.Image = "DOS"
  584.                  End If
  585.              End If
  586.            End If
  587.            WFD.cFileName = ""
  588.            result = FindNextFile(hFile, WFD)
  589.         Loop Until result = 0
  590.        FindClose hFile
  591. End Sub
  592. '**********************************************
  593. '* Function ChowFromFolder is From Planet-Source-Code
  594. '* Modified by Carlos 09-10-99
  595. '* Modified by Carlos 09-24-99
  596. '***********************************************
  597. Private Sub ChowFromFolder(ByVal zpath As String, ByVal FileType As String)
  598.        Dim hFile As Long, result As Long, szPath As String
  599.        Dim WFD As WIN32_FIND_DATA
  600.        Dim TMP As ListItem
  601.        Dim pos1
  602.        ListView1.SortOrder = 0 ' Set to Icon view
  603.        szPath = zpath & FileType & Chr$(0)
  604.        'Start asking windows for files.
  605.        hFile = FindFirstFile(szPath, WFD)
  606.        Do
  607.            ts = StripNull(WFD.cFileName)
  608.            If Not (ts = "." Or ts = "..") Then
  609.              
  610.              If WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY Then
  611.                 'if its a folder
  612.                 rep = "DOS"
  613.              Else
  614.                 pos1 = InStr(1, WFD.cFileName, ".", vbBinaryCompare)
  615.                 rep = GetImage(Mid(WFD.cFileName, pos1 + 1, 3))
  616.              End If
  617.              pos1 = InStr(1, WFD.cFileName, Chr$(0), vbBinaryCompare)
  618.              If Trim(Mid(WFD.cFileName, 1, pos1 - 1)) <> "" Then
  619.                 Set TMP = ListView1.ListItems.Add(, , Trim(WFD.cFileName), rep, rep)
  620.                 If rep <> "DOS" Then TMP.SubItems(1) = WFD.nFileSizeLow / 1000 & " Kb   "
  621.                 Dim strtemp As Variant
  622.                 On Error Resume Next
  623.                 strtemp = WFD.ftCreationTime.dwHighDateTime
  624.                 TMP.SubItems(3) = strtemp
  625.                 strtemp = "File"
  626.                 If WFD.dwFileAttributes = 16 Then strtemp = "Folder"
  627.                 TMP.SubItems(2) = strtemp
  628.              End If
  629.            End If
  630.              WFD.cFileName = ""
  631.              result = FindNextFile(hFile, WFD)
  632.        Loop Until result = 0
  633.        FindClose hFile
  634. End Sub
  635. Private Function GetImage(ByVal imgstr As String) As String
  636. Select Case LCase(imgstr)
  637. Case "zip", "dll", "inf", "exe", "bas", "gif", "txt", "dat", "bat", "hlp", "bmp", "led", "frm", "vbg", "h", "cpp", "vbp", "ctl", "avi": GetImage = LCase(imgstr) 'Normal case
  638. Case "jpg": GetImage = "gif"           'if jpg same icon as gif
  639. Case "com": GetImage = "exe"           'if com same icon as exe
  640. Case "mpg", "mov": GetImage = "avi"    'if mpg or mov same icon as avi
  641. Case "ini": GetImage = "inf"           'if ini same icon as inf
  642. Case Else: GetImage = "Others"         'All other files
  643. End Select
  644. End Function
  645. Private Sub PutInTree(ByVal Node As String, ByVal nb)
  646. With TreeView1
  647.   myfullpath = Mid(.Nodes.Item(Node).FullPath, 9, Len(.Nodes.Item(Node).FullPath) - 8) & "\"
  648.   If myfullpath <> "a:\" Then 'dont automaticly check a:
  649.    If Not .Nodes.Item(Node).Children > 0 Then 'if not already explored
  650.      GetTreeStructure myfullpath, "*.*", .Nodes.Item(Node).Key
  651.    End If
  652.   End If
  653.   If nb = 1 Then Exit Sub 'End of recursivity
  654.   '***********************************
  655.   'Recursive call
  656.    PutInTree .Nodes.Item(Node).Next.Key, nb - 1
  657. End With
  658. End Sub
  659. Private Sub GetFreeSpace(ByVal pathn As String)
  660.        'Calls other functions to provide the info.
  661.        'Data is stored in my own user-defined type.
  662.        Dim RDI As RANDYS_OWN_DRIVE_INFO
  663.        Dim r As Long, nbtemp As Integer
  664.        r& = rgbGetDiskFreeSpaceRDI(pathn$, RDI)
  665.        'show the results
  666.        With ListView1
  667.         For i = 1 To ListView1.ListItems.Count
  668.          nbt = nbt + Val(.ListItems(i).ListSubItems(1))
  669.         Next
  670.       End With
  671.        nbtv = 1
  672.        If nbt > 1000 Then nbtv = 1000
  673.        If nbt = 0 Then
  674.          StatusBar2.Panels(2).Text = Format$(nbt, "###,##0") & IIf(nbtv = 0, " Kb", " Mb") & "  ( Drive Space Free : " & Format$(RDI.DrvSpaceFree / 1000000, "###0") & " Mb )"
  675.        Else
  676.          StatusBar2.Panels(2).Text = Format$(nbt / nbtv, "###,##0") & IIf(nbtv = 0, " Kb", " Mb") & "  ( Drive Space Free : " & Format$(RDI.DrvSpaceFree / 1000000, "###0") & " Mb )"
  677.        End If
  678.  End Sub
  679. Private Sub Form_Load()
  680. Dim nod1 As Node
  681. Set nod1 = TreeView1.Nodes.Add(, , "RDesktop", "Desktop")
  682.  nod1.Image = "DOS"
  683. For i = 0 To Drive1.ListCount - 1
  684.  Set nod1 = TreeView1.Nodes.Add("RDesktop", tvwChild, "R" & Mid(Drive1.List(i), 1, 2) & TreeView1.Nodes.Count, Mid(Drive1.List(i), 1, 2))
  685.  nod1.Image = "Drive"
  686. End Sub
  687. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  688. If SizeOn Then
  689.  OldX = x
  690.  MoveOn = True
  691. End If
  692. End Sub
  693. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  694. If MoveOn Then
  695.  'moveon = True
  696.  If x <> OldX Then
  697.   TreeView1.Width = TreeView1.Width - (OldX - x)
  698.   StatusBar1.Width = TreeView1.Width
  699.   ListView1.Left = TreeView1.Width + 40
  700.   ListView1.Width = Me.Width
  701.  StatusBar3.Left = ListView1.Left
  702.  StatusBar3.Width = ListView1.Width
  703.  End If
  704.  OldX = x
  705. End If
  706. If x = TreeView1.Width Or x = TreeView1.Width + 15 And Not SizeOn Then
  707.  Me.MousePointer = 9
  708.  SizeOn = True
  709. ElseIf SizeOn Then
  710.  Me.MousePointer = 0
  711.  SizeOn = False
  712. End If
  713. End Sub
  714. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  715. MoveOn = False
  716. End Sub
  717. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  718. End Sub
  719. Private Sub Form_Resize()
  720. On Error Resume Next
  721. ListView1.Width = ListView1.Width + (Width - (ListView1.Left + ListView1.Width)) - 80
  722. StatusBar3.Width = ListView1.Width
  723. ListView1.Height = (Me.Height - 2030)
  724. TreeView1.Height = (Me.Height - 2030)
  725. End Sub
  726. Private Sub Form_Terminate()
  727. End Sub
  728. Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  729. If SizeOn Then
  730.  Me.MousePointer = 0
  731.  SizeOn = False
  732. End If
  733. End Sub
  734. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  735. Select Case Button.Key
  736.     Case "ViewD": ListView1.View = lvwReport
  737.     Case "ViewL": ListView1.View = lvwList
  738.     Case "ViewS": ListView1.View = lvwSmallIcon
  739.     Case "ViewB": ListView1.View = lvwIcon
  740.     Case "BackFolder"
  741.    If TreeView1.SelectedItem.Parent.Text <> "Desktop" Then
  742.      TreeView1.SelectedItem.Parent.Selected = True
  743.      ListView1.ListItems.Clear
  744.      StatusBar3.SimpleText = "Content Of : " & Mid(TreeView1.SelectedItem.FullPath, 9, Len(TreeView1.SelectedItem.FullPath) - 8)
  745.      myfullpath = Mid(TreeView1.SelectedItem.FullPath, 9, Len(TreeView1.SelectedItem.FullPath) - 8) & "\"
  746.      ' Expand the Treeview object with sub folders
  747.      ChowFromFolder myfullpath, "*.*"
  748.      StatusBar2.Panels(1).Text = ListView1.ListItems.Count & "  Objects found"
  749.      GetFreeSpace Mid(myfullpath, 1, 3)
  750. End If
  751. End Select
  752. End Sub
  753. Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
  754. With Node
  755.  .Sorted = True
  756.  PutInTree .Child.Key, .Children
  757. End With
  758. End Sub
  759. '**************************************************************************************
  760. Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ColumnHeader)
  761. ' When a ColumnHeader object is clicked, the ListView control is
  762. ' sorted by the subitems of that column.
  763. ' Set the SortKey to the Index of the ColumnHeader - 1
  764. If ListView1.SortOrder = 0 Then
  765.  ListView1.SortOrder = 1
  766.  Else   ' Set Sorted to True to sort the list.
  767.  ListView1.SortOrder = 0
  768. End If
  769.  ListView1.Sorted = True
  770. End Sub
  771. Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  772. If SizeOn Then
  773.  Me.MousePointer = 0
  774.  SizeOn = False
  775. End If
  776. End Sub
  777. Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  778. If Node.Text <> "Desktop" Then
  779.    ListView1.ListItems.Clear
  780.    StatusBar3.SimpleText = "Content Of : " & Mid(Node.FullPath, 9, Len(Node.FullPath) - 8)
  781.    myfullpath = Mid(Node.FullPath, 9, Len(Node.FullPath) - 8) & "\"
  782.    'Expand the Treeview object with sub folders
  783.    ChowFromFolder myfullpath, "*.*"
  784.    StatusBar2.Panels(1).Text = Format(ListView1.ListItems.Count, "###,##0") & "  Objects found"
  785.    GetFreeSpace Mid(myfullpath, 1, 3)
  786. End If
  787. End Sub
  788. '****************************************************
  789. '*********************************************
  790. Private Function rgbGetDiskFreeSpaceRDI(RootPathName$, RDI As RANDYS_OWN_DRIVE_INFO) As Long
  791.        'returns data about the selected drive.
  792.        'Passed is the RootPathName$; the other
  793.        'variables are filled in here.
  794.        Dim r As Long
  795.        
  796.        r& = GetDiskFreeSpace(RootPathName$, RDI.DrvSectors, RDI.DrvBytesPerSector, RDI.DrvFreeClusters, RDI.DrvTotalClusters)
  797.        
  798.        RDI.DrvSpaceTotal = (RDI.DrvSectors * RDI.DrvBytesPerSector * RDI.DrvTotalClusters)
  799.        RDI.DrvSpaceFree = (RDI.DrvSectors * RDI.DrvBytesPerSector * RDI.DrvFreeClusters)
  800.        RDI.DrvSpaceUsed = RDI.DrvSpaceTotal - RDI.DrvSpaceFree
  801.        
  802.        rgbGetDiskFreeSpaceRDI& = r&
  803.    End Function
  804. Private Function rgbGetLogicalDriveStrings() As String
  805.        'returns a single string of available drive
  806.        'letters, each separated by a space
  807.        '(i.e. a:\ c:\ d:\), suitable for display
  808.        Dim r As Long
  809.        Dim i As Integer
  810.        Dim lpBuffer As String
  811.        
  812.        lpBuffer$ = Space$(64)
  813.        
  814.        r& = GetLogicalDriveStrings(Len(lpBuffer$), lpBuffer$)
  815.        
  816.        lpBuffer$ = Trim$(lpBuffer$)
  817.        rgbGetLogicalDriveStrings = lpBuffer$
  818.    End Function
  819. Private Function StripNulls(startStrg$) As String
  820.        'Take a string separated by a Chr$(0), and split off 1 item, and
  821.        'shorten the string so that the next item is ready for removal.
  822.        Dim c As Integer
  823.        Dim Item As String
  824.        c% = 1
  825.        Do
  826.            If Mid$(startStrg$, c%, 1) = Chr$(0) Then
  827.                
  828.                Item$ = Mid$(startStrg$, 1, c% - 1)
  829.                startStrg$ = Mid$(startStrg$, c% + 1, Len(startStrg$))
  830.                StripNulls$ = Item$
  831.                Exit Function
  832.            End If
  833.            c% = c% + 1
  834.        Loop
  835. End Function
  836.